home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1995 / 5 / 03 / db.lzh / ARexx / close.rexx next >
OS/2 REXX Batch file  |  1994-12-25  |  315b  |  24 lines
  1. /* Schließt alle Bases ohne Sicherheitsabfrage */
  2.  
  3. Options RESULTS
  4.  
  5. ADDRESS DataBase
  6.  
  7. Request "_schließen|_Abbruch" "ACHTUNG! alle Dateien werden geschlossen."
  8. klick = RC
  9.  
  10. IF klick = 1 THEN
  11.   DO
  12.   Display Off
  13.   nr = 1
  14.   DO WHILE nr < 6
  15.     Base nr
  16.     Close
  17.     nr = nr + 1
  18.   END
  19.   Display On
  20.   Base 1
  21. END
  22.  
  23. ADDRESS
  24.